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=1984 01:14:3 VAX-11 Bliss- 742 P 
71982 04:18:98 DISKSVMSMASTER:CMOUNT. SRCJERASE.B32:1- >" 


‘oo J QMODULE ERASE (a rce3ay : 
: § § IDENT = Be 88a8 : : 
3 = 3 
; 5 006 ' BEGIN : 
By. 8 1: ; 
3 8 443 } , SteasnereosoraneenoneeeeoesseneNeeneneenedeeneseTeeseneoeeneesenereeseeereTS 4 
: :* s b 
5 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
3 11 0011 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * : 
; \§ 0918 : - ALL RIGHTS RESERVED. % 3 
3 ! * 3 
3 14 014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ° 
3 15 0015 1 !'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 2 
$ 16 B08 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
$ 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
$ 1 adh : - TRANSFERRED. & 3 
3 ‘ . 3 
3 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® : 
; ¢ 00 § 1 !@ AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® $ 
: Z 88 Z : : CORPORATION. . : 
: 35 0025 1 i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 $$ 83 g : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® : 
3 ! * 3 
; a 0028 1 !« * 3 
3 , 5 94 : Lee e ee eRe AA AERA AAAS é 
: (31 031 1 !4¢ ; 
3 § 0 ¢ 3 3 
: Ops ' FACILITY: MOUNT System Service : 
; 5 0035 ABSTRACT: : 
; 7 et 44 7% This module contains the routines that perform the Data Security : 
: $8 4 ! } Erase (DSE) on a portion of a disk volume. : 
; 40 9040 ENVIRONMENT : ; 
. € 0042 1: STARLET operating system, including privileged system services ; 
; cs Goes ’ and etereal pon rt ae ed ’ 4 : 
45 045 1 i= ; 
3; «¢6 bne$ 1! 3 
3 4 104 1! 

: $8 B08 : AUTHOR: Steven T. Jeffreys, CREATION DATE: 23-Mar-1983 

: 30 030 1 | MODIFIED BY: 

: 2¢ 26 1 i v03-003 ACG0378 Andrew C. Goldstein, 6-Dec-1983 18:28 

: 34 baz ! Move to MOUNT facility 

: 55 55 1: V03-002 $TJ3104 Steven T. igttreys, 03-Jun-1983 

: 2$ Bnes ! - Removed reference to VMSD2. 


Sep-1984 : VAX-11 BLi 
be 500 1b-s¢ Hats a Set tH 
3 8 1! v03-001 $1 1306e Steven T. Jeffre evs. 30-Mar-1983 

: 1! Penge parameter to ERASE_BLOCKS and DO_ERASE. 
; @& 1! tt ; makes for a asseeree inter tace with callers outside 
; 6) 1! of the Files-11 REBUILD and ANALYZE/D1SK) 

3 6¢ ! Bs - Use VMSD2 to i ie erase. (Temporary) 

ie: } 

: 66 1 LIBRARY V SYSSLIBRARY:L1B 132"; 

3 a4 : REQUIRE ‘SRCS$:MOUDEF.B 3 

: 69 1! 

3 $3 1 ! Table of contents. 

3 } ’ ! 

: 8 1 FORWARD ROUTINE 

3 74 1 ERASE BLOCKS, ! Top level DSE routine 
. 1 DO_ERASE; ' Issues the erase $010 
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1b-se 1984 01:14: VAX-11 Bliss-32 V4.0-742 Page 3 -m_ 
1 3002138 93:08:79 DISKSVMSMASTER: CMOUNT. SRCJERASE .832; 1 . (2) 
GLOBAL ROUTINE ERASE_BLOCKS (START_LBN, BLOCK_COUNT, CHANNEL) = 


ooo 
~ 


14 
' 

FUNCTIONAL DESCRIPTION: 
Perform a data peer cer erase (DSE) gn a single contiguous extent 
on the disk. This routine is recursive. 


The DSE is done by calling the erase pattern generator systen service, 
SERAPAT, and writing the pattern returned to the disk. This is repeated 
until SERAPAT returns a status of SS$_NOTRAN, which indicates that the 

s complete. 


The SERAPAT code is loadable, and may vary from site to site. 


tb Se tt tt 


However, the default SERAPAT code is very simple, and by checking to see 
if the default SERAPAT code is still being used, we oer save the 
overhead of calling SERAPAT. If the flag SGNSV_LOADERAPAT in the cell 
SGNSGL_LOADFLAGS is set, it indicates that an alternate SERAPAT has been 
ogg oi sod mnet we should call the SERAPAT routine instead of taking 

e shortcut. 


Note that the flag SGNSV_LOADERAPAT corresponds to the SYSGEN parameter 
LOADERAPAT. Since the SYSGEN parameter may be enengee on the running 
system, it implies that until the system is rebooted, it is possible 
that the site-specific SERAPAT will not be called, and the default 
erase pattern (0), will be used in its place. We do not believe this 
to be a significant security risk. 


Oe Oe ee ee Se ee Se ee erase 
“I~ 
OWONOULSWN—O | 


Note that the default SERAPAT code defines a one-step DSE procedure 
for disks, and the erase pattern is 0. 


SSLESRALSLSSELESRAVLS 
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This routine assumes that 1/0 transfers of an arbitrary length can be 
done to any disk device with but a single Q/0. 


CALLING SEQUENCE: 
ERASE BLOCKS (ARG1, ARG2, ARG3) 


INPUT PARAMETERS: 
ARG1: LBN of first block to be erased 
ARG2: number of blocks to erase 

ARGS: 1/0 channel to the device 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 
CURRENT_UCB: UCB of volume 


OUTPUT PARAMETERS: 
None. 
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a st 


i IMPLICIT OUTPUTS: 
LOC_LBN: plcement LBN of allocation or 0 


ROUTINE VALUE: 
if successful erase 
<a system status code> if an error was encountered. 
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ERAS 16-Sep-1984 01:14: VAX=11 Blisse 32 V4.0-742 4 

Oe 600 12-808- 1 3be 94:16:38 DISKSVMSMAST ER: CMOUNT. SRCIJERASE .832; f29 (2) 

; 3 4 1! ; 
: : 5 5 1 SIDE ecvet ‘ 
| eee : 
. 4 § $ :* : 
: Pe A BEGIN ! Start of ERASE_BLOCKS ‘ 
; 148 re EXTERNAL ; 
; 614 67 SGNSGL_LOADFLAGS: BITVECTOR ADDRESSING MODE (GENERAL); ‘ 
: 100 ore ! System flags bitvector : 
: 146 i: EXTERNAL LITERAL ; 
3 ioe SGNSV_LOADERAPAT; ! System flag : 
: 149 § LOCAL : 
; 150 39 ERASE_PASS : LONG, ' Count of erase passes ; 
: 151 1 ERASE_PATTERN =: LONG, ' Pattern to write to the disk ; 
3 136 ; ERASE STATUS : LONG, ! Intermediate status . 
3; 15 068 STATUS : LONG; ! Store status of operation 3 
: 4154 684 : 
s 155 685 ! F 
3 128 B98 : Determine if default SERAPAT routine is present. : 
: 158 688 2 iF NOT .SGNSGL_LOADFLAGS CSGNSV_LOADERAPAT : 
; 159 89 THE 3 
: 160 690 BEGIN ; 
; 166 O69 i The default SERAPAT is present. That implies that the : 
3 1o7 o37 i DSE is @ one-pass operation that zeroes each block. : 
: 165 695 STATUS = SS$_NOTR ; 
; 196 ets prast. STATUS = DO_ AO RASE (.START_LBN, .BLOCK_COUNT, 0, .CHANNEL); : 
: 168 698 2 ELSE : 
: 169 699 BEGIN $ 
; 170 700 ' 3 
: 4 8 A site-specific SERAPAT has been loaded. : 
: 138 70 ERASE PASS = : 
3 174 704 STATUS = SeRaPhr (TYPE=ERASK DISK, COUNT=.ERASE_PASS, PATADR=ERASE_PATTERN) ; : 
3; «175 705 PR ASE_STATUS = ATU 3 
; 176 7 WHILE”.STATUS AND (. Status NEQ SS$_NOTRAN) DO 3 
: 1% 708 rep 
: 179 709 4 i write the erase pattern to the disk and call SERAPAT : 
3 190 710 4 i ge © generete the next data security erase pattern. F 
; 181 711 4 i me we call SERAPAT, increment the ERASE PASS. 3 
.% § ne 4 i ohn SERAPAT returns SS$ NOTRAN N, the OSE is complete. 3 
: 1 71 4 i Note that if the Last attempt to erase the data succeeds, F} 
3 : : me : we assume that the operation was a success. ; 
: 189 ay) 2 ERA ASE opiarus = 00 wth (.START_LBN, .BLOCK_COUNT, .ERASE_PATTERN, .CHANNEL); 3 
3 188 rig 4 STATUS = SERAPAT. CTPPESERASK-DISK, COUNT=.ERASE_PASS, PATADR=ERASE_PATTERN) ; 3 
; 150 720 ; END; : 
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: 191 721 ! 

3 136 7 i Return the most significant status value. At this potet. ERASE gel ATUs 
; 19 7 i is the stetus aft the write fo disk, one STATUS is the Last of the Last 
3; 194 7 i colt to SERA If the write had an error, return that t status, other 
; 133 f 5 iy sf 'Not peeuee gk status of the Last tall to $ERAPAT (which should be 
19 1 ES genes 

1 we § WEN rat 

; 83 4 ! an em 

; 88 7 ; : 

; 204 0734 1 END; ! End of ERASE_BLOCKS 


TI ERASE 

ID \V04=000\ 

EXTRN SGNSGL_LOADFLAGS 
EXTRN SGNS$V AE CADERAPAT 
EXTRN SP SSER 


-PSECT S$CODES,NOWRT,2 


003¢ 00000 .ENTRY ERASE_BLOCKS, Save R2,R3,R4,R5 : 

55 000000006 00 f 90002 HOVA SYSSERAPAT, R5 : 

18 000000006 00 000000006 &F t 0000¢ BBS Asin LOADERAPAT, SGNSGL_LOADFLAGS, 1$ : 
54 0629 8F 3C 00018 MOVZWL #1577, STATUS : 

0C AC DD 00010 PUSHL C ANNEL : 

7E D4 00020 CLRL : 

7E 04 AC 7D 00022 MOV START LBN, -(SP) : 

0000v CF 04 FB 0026 CALLS D : 
53 50 DO 00028 MOVL RO. ERASE_STATUS F 

40 11 0002E BRB ; 

52 ot DO 00030 1$: MOVL #1, ERASE_PASS : 

4006 8F BB 90 3 PUSHR #*M<R2,SP5 F 

iY DD 00037 PUSHL @# : 

65 Q FB 00039 CALLS #3, SYSSERAPAT ; 

54 0 pO 0003c MOVL R : 

53 54 DO 0003F MOVL § STATUS, ERASE_STATUS ; 

2B 4 €9 O48 2$: BLBC . F 
00000629 8F 4 D4 0 4 CMPL TATUS, #1577 : 
2 4C EQL F 

0c AC DD 0004E PUSHL NNEL ; 

04 AE DD 00051 PUSHL ERASE EBATTERN : 

7E 04 AC 7D 00054 VQ  START-LBN, -(SP) : 

0000v cf 4 Ff 8 CALLS #4, DO_ERA F 
3 0 »D D MOVL RO, ERASE STATUS : 

2 06 INCL ERASE ASS ; 

4004 8F BB PUSHR SOSR? Ses F 

DD PUSHL ; 

5 F CALLS #3, SYSSERAPAT : 

4 p MOVL RO. STATUS : 

p f BRB 3 

04 E8 3$: BLBS ERASE_STATUS, 4$ ; 


M 7 
vO4=600 Ve8ep= 198s VSELSiTS — BEEKSUMeMASTERGCMOUNT -SRCIERASE.032;1°%° «28 
50 53 B0 1 Ret ERASE_STATUS, RO ; 0730 
50 54 00 3 4$: MOVL STATUS, RO : 0732 
be 7A RET 3 $734 
3; Routine Size: 123 bytes, Routine Base: S$CODE$ + 0000 


N 7 
en 8- 1984 12:48:19 DISKSVMGMASTERSCMOUNT. SRCIERASE.B32;1°%° (30 
ROUTINE DO_ERASE (START_LBN, BLOCK_COUNT, ERASE_PATTERN, CHANNEL) 
had 
FUNCTIONAL DESCRIPTION: 
Helper routine to ERASE_BLOCKS. Write the erase pel ig to the disk, 


making sure every block gets written. If a bad block is encountered, 
write around it. 


aed 
<= 


This routine assumes that 1/0 transfers of an arbitrary length can be 
done to any disk device with but a single Q10. 


Even though the nature of this routine lends itself to a recursive 
implementation, it was done iteratively to minimize stack usage. 
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CALLING SEQUENCE: 
DO_ERASE (ARG1, ARG2, ARG3, ARG4) 


i 

i 

i 

i 
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i 
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i 

i 

i 

i 

i 

i 

! INPUT PARAMETERS: 

: ARG]: LBN of first block to be erased 
! ARG2: number of blocks to erase 
: ARGS: 4 byte erase pattern 
ARG4: 1/0 channel to the device 
IMPLICIT INPUTS: 

N 

' 

i 

i 

i 

i 

i 

i 

i 

i 

1 

i 

i 

i 

le 


ne. 


OUTPUT PARAMETERS: 
None. 


inten OUTPUTS: 


ne. 


ROUTINE VALUE: 
1 if successful erase 
<a system status code> if an error was encountered. 


SIDE EFFECTS: 
The count of erase 1/0 operations is incremented. 
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BEGIN ! Start of DO_ERASE | 
EXTERNAL 
| 


INN 


SGNSGL_VMSD2 : LONG ADDRESSING_MODE (GENERAL), !*** TEMPORARY 
PMSS$GL_ERASEIO : LONG ADDRESSING_MODE (GENERAL); 


[=] 
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78 § 

i $ ! Count of erase 1/0 operations 
785 LOCAL 

7 : LONG, ' local copy of START_LBN 

7 COUNT : LONG, ' vocal copy of BLOCK_COUNT 

788 BLOCKS_ERASED : LONG ' # of blocks actually erased 
789 : BBLOCK (8), i 1/0 status block 

790 ERASE_STATUS : LONG, ' Routine status 

791 STATUS : LONG; ' Store status of operation 
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700-500 1278681382 93:18:49 DISKSVMSMASTER: CMOUNT. SRCJERASE .B32;1 . (3) 
63 O78 ; 
64 Bf } : 
65 794 ! Erase the specified portion of the disk. If the erase fails, nervy : 
66 0795 ! the operation starting from 1 block past the point of failure. Only . 
of 0737 ; the status coded from the first such error is returned. ‘ 
269 798 : : 
5/0 0799 ! Set things up for the loop. The loop will terminate when no more ‘ 
4 Bast ; blocks need to be erased. : 
ig Bang ERASE STATUS = SS$_NORMAL; ! Assume no errors : 
74 et STATUS = SS$_NORMAL; ! Ditto ‘ 
75 0804 LBN =. T_LBN; ' Copy starting LBN : 
76 0805 COUNT = .BLOCK_COUNT; ! Copy # of blocks to erase ; 
27? 0806 WHILE (.COUNT GTR 0) DO ; 
sf8 eet BEGIN ! Start of erase loop ; 
280 0809 ! Issue an erase $Q10W to the volume. The IOSM_ERASE modifier turns : 
$e) bait } an ordinary write into a special low-overhead write. ‘ 
oR P pels 3 STATUS = $Q10W (CHAN = .CHANNEL : 
284 P 081 3 FUNC = (10$_WRITELBLK OR IOSM_ERASE), ‘ 
285 P 0814 3 EFN = MOUNT_EFN, 3 
286 P 0815 H I0SB = IOSTS, ; 
287 P 0816 Pi = ERASE PATTERN : 
288 P 0817 3 Pe = (.COUNT * 5125, : 
289 P 0818 3 P = .LBN ; 
290 0819 3 ); : 
291 0820 3 : 
$98 th 3 PMSS$GL_ERASEIO = .PMSS$GL_ERASEIO + 1; ! Bump erase 1/0 counter ; 
294 0893 3 IF .STATUS : 
295 0824 3 THEN ; 
296 0825 4 BEGIN ; 
297 0826 4 : : 
298 0827 4 ! The call to $Q]0W succeeded. : 
$30 0828 4 ! Decrement the count of blocks to erase by the number of blocks ; 
00 +74 & ' actually erased. Advance the starting Lbn to 1 block past the ; 
pt bess 2 } last block actually erased. : 
30 Daag 4 BLOCKS_ERASED = .1JOSTS (2,0,32,0) / 512; : 
304 0833 4 COUNT = (.COUNT - .BLOCKS ERASED) = 1; ; 
05 te: ? LBN = (.LBN + .BLOCKS_ERASED) + 1; | : 
309 nae 4 ! If an error was encountered during the erase, and it is the first : 
08 0837 4 : such error, save the error status code so that if may be returned | : 
09 0858 4 i to the caller. ; 
11 bees 5 © (NOT (STATUS = .IOSTS (0,0,16,0])) | : 
\¢ ry ? AND .ERASE_STATUS | : 
14 B28 & ERASE_STATUS = .STATUS; ! Save first error status | : 
15 Bad 4 EN : 
16 45 3 ELSE | : 
1 Bass 4 BEGIN | : 
318 0847 4 ; : 
19 0848 4 ! The erase $Q]0W failed outright. Terminate the erase operation. : 


B | 
1$-Sep=1984 01:14:30 VAX=11 BLiss-32_v4.0-742 9 
18-1984 12:45:19 DISKSYMGMASTERCMOUNT. SRCIERASE.832;1°%° (35. 


; 0 0849 4 ! 
; 1 0850 4 ERASE_STATUS = .STATUS; ' Save exit status 

: § pee) 4 COUNT = 0; ! Insure loop termination 
4 a8s8 END; ! End of erase loop 

; 6 0855 ! 
: $50 Baeo } Return the erase status. Only the first error encountered is reported. 

: ¢9 0858 2 RETURN .ERASE_STATUS 

; 0 0859 

; 31 0860 1 END; ! End of DO_ERASE 


-EXTRN SGNSGL_VMSD2, PMSS$GL_ERASEIO 
-EXTRN SYS$Q10W 


003C 00000 DO_ERASE: 
WORD zee R2,R3,R4,R5 ; 0735 


SE 08 c2 00002 SUBL2 F 
55 01 00 00005 MOVL Ae ERASE_STATUS > 080 
50 01 D0 00008 MOVL Ag TATUS + 080 
53 04 AC DO 00008 MOVL § START_LBN, LBN + 0804 
52 08 AC DO 0000F MOVL BLOCK COUNT, COUNT + 0805 
3¢ D5 00013 1$: TSTL OUNT™ + 0806 
5? 15 00015 BLEQ : 
7E 7C 00017 CLRQ  =(SP) + 0819 
a3 D4 00019 CLRL ~ SP) : 
53 DD 0001B PUSHL : 
7E 52 09 78 0001D SHL roe COUNT, -(SP) : 
OC AC OF 90021 PUSHAB ERAS st PATTERN : 
7E 7C 00024 LRQ : 
30 AE 9F 00026 PUSHAB F 
7E 0420 8F 3C 00029 MOVZWL H38 (SP) : 
10 AC DD 000¢E PUSHL NNEL ; 
1A DD 00031 PUSHL res : 
000000006 00 Oc FB 00035 CALLS #12, SYS$QIOW : 
000000006 00 D6 0003A INCL PMSSGL _ERASEIO > 0821 
24 50 £9 90040 LBC TUS, 2$ ; 0825 
54 02 AE 00000200 BF ¢7 0004 DIVL3 2, LOSTS+2, BLOCKS_ERASED : 08 2 
51 5 54 C3 0004C SUBL3 BLOCKS ERASED, COUNT, ~R1 > 083 
5 FF Al 9E 00050 MOVAB =-1(R1)> COU : 
5 01 A443 3 00054 MOVAB 1(BLOCKS ERASED) CLBNJ. LBN > 0834 
50 of ¢ 9 MOVZWL IOSTS, STATUS + 0840 
B4 50 E8 0005C¢ BLBS STATUS, 1$ ; 
B1 55 £9 0005F BLBC —- ERASE_STAT : 0841 
55 50 00 0068 MOVL = STATUS, PRASE Status : 0845 
AC 11 0006 BRB 1$ : 082 
£6 50 D0 067 2$: MOVL § STATUS, ERASE_STATUS > 0850 
3e D4 0006A CLR COUNT : 0851 
AS 11 0006C BRB 1$ > 0806 
50 55 Bd O06 3$: MOVL § ERASE_STATUS, RO : 0858 
4 00071 RET > 0860 


; Routine Size: 114 bytes, Routine Base: $CODE$ + 0078 
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PSECT SUMMARY 


: Name Bytes Attributes 

: SCODES 237 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

Be es oe ee ee Syabols -oo---- * Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 17 0 1000 00:01.8 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS€:ERASE/OBJ=OBJ$:ERASE MSRC$:ERASE/UPDATE=(ENH$: ERASE) 
giao: 237 gode 5 0 data bytes 


3 Time 215. 
3 rds y Time: 726.6 
3 Lines/CPU Min: 931 

3; Lexemes/CPU-Min: 31548 

; pee ured: 102 pages 
. J a 


; Compi ion Complete 
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